home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Graphics / TVPaint / Rexx / polysplines.rx < prev    next >
Encoding:
Text File  |  1995-11-07  |  633 b   |  51 lines
  1. /*    param none    */
  2.  
  3. options results
  4.  
  5. address 'rexx_TVPaint'
  6.  
  7.  
  8. /* draw a macroscopic view of a Amiga Chromozomical Virus */
  9.  
  10. /* reset */
  11.  
  12.     tv_UpdateUndo
  13.     tv_SetDrawMode    Color
  14.     tv_AliasOn
  15.     tv_StencilOff
  16.     tv_DensityOff
  17.     tv_CycleOff    
  18.     tv_DensitySpline 255 50
  19.     tv_XMax
  20.     tv_YMax
  21.     tv_WrapX    0
  22.     tv_WrapY    0
  23.     tv_RangeV
  24.  
  25.     tv_AeroPower 10
  26.  
  27.     tv_AeroSpline 255 0
  28.  
  29.     tv_AeroProfile 0 255
  30.     tv_AeroProfile 1 255
  31.     tv_AeroProfile 2 255
  32.  
  33.     tv_SetAPen 50 255 0 255
  34.     tv_AeroPen 10
  35.  
  36.     tv_InitArea
  37.  
  38.     tv_GetWidth
  39.     width=result
  40.  
  41.     tv_GetHeight
  42.     height=result
  43.  
  44.  
  45.     do z=1 to 20
  46.         tv_AreaMove random(0,width,time('S')) random(0,height,time('S'))
  47.     end
  48.  
  49.     tv_PolySpline
  50.         
  51.